﻿Public Class clsProdSpec
    Public Function getProdSpecInfo(_prodID As String) As DataTable
        Dim szSql As String = ""
        szSql &= " select * from sf.t_prod_spec where factory_id=? "
        szSql &= "and prod_spec_id=("
        szSql &= "select prod_spec_id from sf.b_prod_info "
        szSql &= "where factory_id=? "
        szSql &= "and prod_id=?)"

        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, g_factory_id, g_factory_id, _prodID)
        If IsNothing(dt) Then
            getProdSpecInfo = New DataTable
        Else
            getProdSpecInfo = dt
        End If
    End Function
End Class
